home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / paswiz14.zip / SOURCE.ZIP / EQUIPMEN.PAS < prev    next >
Pascal/Delphi Source File  |  1993-02-20  |  2KB  |  90 lines
  1. {   +----------------------------------------------------------------------+
  2.     |                                                                      |
  3.     |        PasWiz  Copyright (c) 1990-1993  Thomas G. Hanlin III         |
  4.     |             3544 E. Southern Ave. #104,  Mesa, AZ 85204              |
  5.     |                                                                      |
  6.     |                     The Pascal Wizard's Library                      |
  7.     |                                                                      |
  8.     +----------------------------------------------------------------------+
  9.  
  10.  
  11.  
  12. Equipment:
  13.  
  14.    This unit provides information about the computing environment from both
  15.    hardware and software perspectives.
  16.  
  17. }
  18.  
  19.  
  20.  
  21. UNIT Equipment;
  22.  
  23.  
  24.  
  25. INTERFACE
  26.  
  27.  
  28.  
  29. FUNCTION AllExtMem: LONGINT;
  30. FUNCTION CDROM: INTEGER;
  31. FUNCTION CommPorts: INTEGER;
  32. FUNCTION Floppies: INTEGER;
  33. FUNCTION GetExtM: LONGINT;
  34. FUNCTION EnhKbd: BOOLEAN;
  35. FUNCTION Processor: INTEGER;
  36. FUNCTION PrtPorts: INTEGER;
  37.  
  38. PROCEDURE FloppyType (VAR Drive1, Drive2: INTEGER);
  39. PROCEDURE Get4DOSv (VAR MajorV, MinorV: INTEGER);
  40. PROCEDURE GetDisplay (VAR Adapter: INTEGER; VAR Mono: BOOLEAN);
  41. PROCEDURE GetDOSv (VAR MajorV, MinorV: INTEGER);
  42. PROCEDURE GetEMSm (VAR TotalPages, FreePages: INTEGER);
  43. PROCEDURE GetEMSv (VAR MajorV, MinorV: INTEGER);
  44. PROCEDURE GetXMSm (VAR LargestFree, TotalFree: LONGINT);
  45. PROCEDURE GetXMSv (VAR MajorV, MinorV: INTEGER);
  46. PROCEDURE WinCheck (VAR MajorV, MinorV: INTEGER);
  47.  
  48.  
  49.  
  50. { --------------------------------------------------------------------------- }
  51.  
  52.  
  53.  
  54. IMPLEMENTATION
  55.  
  56.  
  57.  
  58. {$F+}
  59.  
  60. { the routines are actually in assembly language }
  61.  
  62. FUNCTION AllExtMem; external;
  63. FUNCTION CDROM; external;
  64. FUNCTION CommPorts; external;
  65. FUNCTION Floppies; external;
  66. FUNCTION GetExtM; external;
  67. FUNCTION EnhKbd; external;
  68. FUNCTION Processor; external;
  69. FUNCTION PrtPorts; external;
  70.  
  71. PROCEDURE FloppyType; external;
  72. PROCEDURE Get4DOSv; external;
  73. PROCEDURE GetDisplay; external;
  74. PROCEDURE GetDOSv; external;
  75. PROCEDURE GetEMSm; external;
  76. PROCEDURE GetEMSv; external;
  77. PROCEDURE GetXMSm; external;
  78. PROCEDURE GetXMSv; external;
  79. PROCEDURE WinCheck; external;
  80.  
  81.  
  82.  
  83. {$L EQUIP}
  84.  
  85.  
  86.  
  87. { ----------------------- initialization code --------------------------- }
  88. BEGIN
  89. END.
  90.